Loadstar 85/085.d81/tricks ii

Commodore BASIC | 2022-08-26 | 14KB | 390 lines

100 poke53281,0:poke53280,0:print"[147]"
105 poke56,128:clr
107 dv=peek(186):ifdv<8thendv=8
110 sys57812"tricks.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
111 sys57812"tricks font 1",dv,0:poke780,0:poke781,0:poke782,144:sys65493
112 sys57812"tricks font 2",dv,0:poke780,0:poke781,0:poke782,152:sys65493
120 s1=34816:s2=36864:s3=38912:s9=51200:poke648,128:print"[147]";:sys49152,s1
130 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1:rem bank #2
140 poke53272,2:poke650,128
147 rem machine language routines:
150 cr=49152:rem copyrom
160 cs=49251:rem clearset
170 rs=49277:rem rstorset
180 fo=49442:rem fadeout
190 fi=49477:rem fadein
200 rv=49674:rem rvrseset
210 xs=49722:rem xorset
220 sw=49778:rem scrwedge
225 wo=50009:rem wedgeoff
230 ss=50022:rem spredset
240 rb=50084:rem rubset
250 rt=50276:rem rtrveset
260 rm=50301:rem rembrset
270 r1=50171:rem scrnfill
280 r2=50224:rem colrfill
285 dima$(7),a(7),b$(13,2),b(20),c(10),c$(6,9),d(8):q$=chr$(34)
290 a$(1)="[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
300 a$(2)="[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"
310 a$(3)="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
320 a$(4)="**************************************"
330 a$(5)="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
340 a$(6)="[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]"
350 a$(7)="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
360 fora=1to7:reada(a):next:fora=1to13:forb=1to2:readb$(a,b):next:next
370 fora=1to10:readc(a):next
380 fora=0to9:c$(6,a)="[215][215][215][215][215][215][215][215][215][215]":next
390 fora=0to5:forb=0to9:reada$:c$(a,b)=""+a$:next:next
400 fora=1to8:readd(a):next
499 rem display copyright notice
500 rem
510 al=1:print"[147]":sysrm,s2:syscs,s1
512 fora=1to10:poke646,c(a):print"-here's more stuff for your programs!-":next
515 printtab(2)"                                    "
520 printtab(2)"[154]          character tricks          "
525 printtab(2)"[154]                 by                 "
530 printtab(2)"[154]     john william harris (tmg)      "
540 printtab(2)"[154]      @ 1991 by softdisk, inc.      "
550 printtab(2)"[154]     published on loadstar #85!     "
560 printtab(2)"[154]   subscriptions : 1-800-831-2694   "
570 printtab(2)"[154]        all rights reserved         "
580 printtab(2)"[159]                                    "
590 sysrs,s1:f=0
600 printtab(9)"[158]---- press a key! ----":ct=700
610 geta$:ifa$=""thenct=ct-1:ifct>0then610
620 ifa$<>""then1000
630 syscr,s9:sysrs,s1:geta$:ifa$<>""then1000
640 sysrm,s2:sysrs,s1:geta$:ifa$<>""then1000
650 sysrm,s3:sysrs,s1:geta$:ifa$<>""then1000
660 goto630
1000 syscs,s1:print"[147]";:sysrm,s2:g=int(rnd(1)*7)+1:sysr1,a(g):h=int(rnd(1)*15)+1
1010 sysr2,h
1030 print"[150][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1040 fora=1to21:print"[150][221]                                    [221]":next
1050 print"[150][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1100 print"[159]character tricks: johnny's tricks ii"
1110 print"[150]use the [159]joystick[150] or [159]cursor keys[150] to"
1120 print"choose something, then press [158]fire[150] or"
1130 print"[158]return[150] to confirm your selection."
1140 print"[150][213][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1150 fora=1to13:print"[221][159] [150][221]                                [221]":next
1160 print"[171][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][179]"
1170 print"[153]introduction"
1175 print"[153]screen and color fill...again?"
1180 print"1[146][154]the rom-copy routine"
1190 print"2[146][154]slide off & slide on"
1210 print"3[146][154]fade out and in"
1220 print"4[146][154]reverse a set[146]"
1230 print"5[146][154]xor:for the techie in some of us"
1240 print"6[146][154]the interrupt wedge"
1250 print"7[146][154]spread-warning:very fattening "
1260 print"8[146][154]rub-this baby slices and dices"
1270 print"9[146][154]retrieve and remember"
1280 print"just about everything...yikes!!"
1290 print"[159]leaving already? [158]loadstar"
1292 print"[155]"b$(al,1):print""b$(al,2)
1300 a=33011+al*40:b=al:c=22528:pokea+c,3:pokea,68:sysrs,s1:syssw,s1+a(g)*8,1
1305 poke198,0
1310 d=peek(56320):ifd=127then1400
1320 ifd=126thengosub1500
1330 ifd=125thengosub1600
1340 ifd=111then1700
1345 goto1310
1400 geta$:ifa$="[145]"thengosub1500
1410 ifa$=""thengosub1600
1420 ifa$=chr$(13)then1700
1425 ifa$=" "then1800
1430 ifval(a$)=.then1310
1440 onval(a$)gosub40000,41000,42000,43000,44000,45000,46000,47000,48000
1450 goto1310
1500 ifb>1thenpokea,32:b=b-1:a=a-40:pokea+c,3:pokea,68
1510 print"":poke214,20:print:print"[155]"b$(b,1)
1520 print""b$(b,2)"";:return
1600 ifb<13thenpokea,32:b=b+1:a=a+40:pokea+c,3:pokea,68
1610 print"":poke214,20:print:print"[155]"b$(b,1)
1620 print""b$(b,2)"";:return
1700 al=b:ifb=13then14000
1701 a$=left$(a$(g),3):b$=right$(a$(g),2)
1702 c$=a$+""+b$
1704 poke646,h:print"";:fora=1tob+6:printa$(g):next:printc$
1705 fora=b+8to24:printa$(g):next:print"";
1706 sysr2,1:fore=1to15:pokea,69:sysr2,6:pokea,68:sysr2,3:next
1707 sysr2,1:sysr2,15:sysr2,12:sysr2,11:sysr2,0:sysr1,32:syswo
1710 onbgoto2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000
1800 sysrm,s3:sysfo,s1,1:sysfi,s1,1:s4=s2:s2=s3:s3=s4:goto1310
2000 rem
2010 gosub21000
2035 print"i n t r o d u c t i o n"
2040 print"[150]another set of interesting,"
2050 print"unusual and weird ml graphics"
2060 print"routines to use in your own"
2070 print"programs.  most of these routines"
2080 print"require a custom character set, or"
2090 print"at least a copy of the built-in rom"
2100 print"set, to be effective.  thus, a bit"
2110 print"more programming experience might be"
2120 print"necessary to make any use of these"
2130 print"routines."
2140 print"most of the choices from the main"
2150 print"menu show off one or two routines."
2160 print"they also give some information"
2170 print"about it, and show some ways it"
2180 print"could be used. see the instruction"
2190 print"file for more about each routine."
2200 print""tab(5)"[153]press [158]fire[153] or [158]return[153] to go on"
2210 gosub20000:gosub21000
2220 print""tab(10)"introduction page 2"
2230 print"[150]abbreviations:"
2240 print""tab(8)"css-character set start"
2250 print""tab(6)"sp-speed routine operates at"
2260 print"one last thing: to swap the two"
2270 print"character sets the program uses,"
2280 print"press [158]space[150] from the menu screen."
2290 print"[153]press [158]fire[153] or [158]return[153] for the menu."
2300 gosub20000:goto1000
3000 print"[159]note-you might remember these from the"
3010 print"previous program. they're back, not"
3020 print"because of public demand or anything"
3030 print"like that, b